home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Scene World 6
/
Scene_World_06_2003-02-15_POL__PSW_de_Side_B.d64
/
hello connect
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
718b
|
20 lines
3 poke53281,0:poke53280,0:poke53265,11
4 poke32767,13
5 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or3
10 poke53272,21:poke648,4:poke55,0:poke56,160:poke51,0:poke52,160:gosub500
20 poke53265,27
30 print"[144]load"chr$(34)"presenter"chr$(34)","dv
32 print"run"
36 poke631,13:poke632,13:poke198,2:end
500 dv=peek(186):ifdv<8thendv=8
505 print"[147]":a$=" "
510 b$="[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
515 close2:open2,dv,2,":features":get#2,i$,i$:input#2,i$:close2
520 poke214,10:print:poke646,15:fori=1to10:print""b$:next
530 poke214,12:print:poke646,11:fori=1to7:printtab(3)left$(b$,33):next
540 poke214,11:print:poke646,3:fori=1to7:printtab(4)""left$(b$,33):next
550 poke214,13:print:poke646,7:fori=1to3:printtab(6)""left$(a$,29):next
560 poke214,14:print:printtab(8)"[158][210]eturning to [204][207][193][196][211][212][193][210] #"i$
580 return
10000 d=peek(186):n$="hello connect":open15,d,15,"s0:"+n$:close15:saven$,d:end